home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / unixlib.lha / unix / src / truncate.c < prev    next >
C/C++ Source or Header  |  1996-01-04  |  340b  |  22 lines
  1. #include "amiga.h"
  2. #include "amigados.h"
  3.  
  4. int truncate(char *path, off_t length)
  5. {
  6.     BPTR fh = Open(path, MODE_OLDFILE);
  7.     int err;
  8.  
  9.     __chkabort();
  10.     if (fh) {
  11.     int ret = _do_truncate(fh, length);
  12.  
  13.     if (Close(fh) || ret)
  14.         return ret;
  15.     err = IoErr();
  16.     } else
  17.     err = IoErr();
  18.  
  19.     errno = convert_oserr(err);
  20.     return -1;
  21. }
  22.